                                                                                                                                                                                                                                                   <0x49>LSETLENLSET                                                                                                                                                                                                               <
<0x10><0x56><0x4f><0x48>LENGOTOGOTOLEFT$GOTOrxGOSUBLENxLENLSET<0x49>EQVOR
3<0x56>LENLENGOSUByGOSUBxLEFT$sxLEFT$GOTOrrGOTOxGOSUBLEFT$LEN<0x49><0x60>IMP
2LSETGOSUBLENrLENGOSUBLENLSETMID$<0x56>=
<0x50>LSETLENLEFT$GOSUByrGOSUBlabel72a3<0x50><0xa3,0x00>labelfffff4a4GOSUB<0x7e>LENlabelffffc9f3<0x60>\
<0x06><0x50><0x48>sLEFT$GOSUBLENXOR<0xa3,0x00><0x04><0x48>GOSUBLENLSETXORAND
<0x05><0x4f>LENryLEN<0x50><0xa3,0x00>rLEN<0x4f>*
<0x04><0x50>LENGOSUBrLSET<0x7c>
LENLENLSETMOD
\
<0x04><0x50>LENxGOSUBLSET<0x7d>
GOTOx<0x50><
<0x0a><0x4f>GOTOxLEN=

EQVLENLEFT$<0x0a><0x60>LOGrGOTO<0x48>

<0x4f>LENs<0x4e>>
<0x09><0x50>LENrLOG

<0x48>GOSUBLEN<0x50><0x7e>
<
<0x07>LENGOSUByXOR
LSETLENLENNOT
<0x07><0x48>yGOSUB<0x49>
<0x48>LEFT$LENNOT
<0x04><0x7e>GOSUBrLSET<0x60><0x7e>LENTHEN
varffff9d72<0x04>CLNG<0x60>LSETrLETTHEN
<0x06>xGOTOLOG
<0x48>LENLENNOT
LET
LSETLEFT$LENXOR'
<0x4f>
<0x4f>GOTOx<0x49>*
<0xe8,0x00><0x05>LSETGOSUBLEN<0x50>

<0x7e>LEN'
labelffff9e9cy<0x7e>
<0x04><0x49>LEFT$LEN<0x50>EQV=
<0x09>LENGOSUB<0x48><0x60>

<0x56>LENsLOG=
LENy<0x49><0x7d>
LEFT$GOTOLSET<0xe8,0x00>XOR
GOSUBLENOR<0x7d>
<0x04><0x56>LENxLEN<0x4f>-
GOTOxLET<0xe8,0x00><0x04><0x49>LENGOSUBLEN<0x4f>/
<0x04><0x4f>LENrLEN<0x4f><0xe8,0x00><0x06><0x60>LSETLENxLENLSET<0x50>XOR
<0x05>XOR<0x48>sGOSUBLENLEN<0xe8,0x00>LEFT$LENLEN<0x4f>XOR=<0xe8,0x00>                                                                                                                                                                    LENrLEFT$yLEN\
5<0x60><0x4f>LSETGOTOLENrLENGOSUBLENLENLSETLENLSETLENLET<0x48>LENGOTOGOSUBrLENLEN<0x48>XOR

<0x4f><0x7e>LEN40057GOSUBGOTOGOSUBxLENrLEFT$xLENLENLSET<0x50>^
51400LENLETLOGLENLENLETLEN<0x48>LET<0x48><0x49>XOR<0x7c>
AND

<0x60>+